home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
edit
/
vedt.zip
/
DEMO.VDM
< prev
next >
Wrap
Text File
|
1990-09-19
|
10KB
|
412 lines
R*
R* VEDIT PLUS Demo Macro - Give DOS command: VDEMO -X DEMO.VDM
R*
R* Greenview Data, Inc.
R* P.O. Box 1586
R* Ann Arbor, MI, 48106
R* (313) 996-1299
R*
ES 6 0 R* Disable regular expressions
ES 8 1 R* Suppress search errors
ES 9 1 R* Use explicit text delimiters
R*
R* The following "trick" removes comments from this macro.
R* Register "Y" is loaded with the commands to strip comments.
R* We then "chain" to "Y", which finally chains back to "Z".
R*
RI(y)"EE(z) B 2F/!START!/ 0L -#K #$S/R*|B|Y|>// EE(@) RJ(z)" R* Load "Y"
RJ(y) R* Chain to "Y"
R*
!START!
(Q11 = -1) JP/MLOOP/ R* Skip setup if macro already running
R*
R* Load DEMO.VD2 into register U.
R* This macro then loads the "subroutine macros"
R*
RL(U) DEMO.VD2 R* Load 2nd file
EE(U) R* Switch to edit them
#$S/R*|Y|>// R* Strip comments
EE(@) R* Switch back
M(U) R* Execute DEMO.VD2 - load "subroutines"
EE(U) EQY R* Empty and remove Buffer "U"
(Q11 = -2) JP/MLOOP/ R* Skip signon if returning from compiler support
R*
R* Determine attributes (color) to use for different machines.
R* First preset for B/W display.
R*
112XS(21) R* Q21 = header attribute (Reverse video)
112XS(22) R* Q22 = menu-bar attribute (Reverse video)
15XS(23) R* Q23 = user-message attribute (Intense)
7XS(24) R* Q24 = normal
112XS(25) R* Q25 = reverse
7XS(26) R* Q26 = edit window attribute
7XS(27) R* Q27 = text (directions) window attribute
7YEA R* Normal text attribute
(.sd=3) [ R* If IBM Color
YEC YEN
YT"Do you have a Color display on your computer (Y/N)? "
[ XK(100)"" Q100&95XS(100) (Q100=="Y | Q100=="N)JL YA ] Q100YD
(Q100="Y) [
23XS(21) R* Q21 = header attribute (White on blue)
71XS(22) R* Q22 = menu-bar attribute (White on red)
14XS(23) R* Q23 = user-message attribute (Yellow)
66XS(24) R* Q24 = green on red window
49XS(25) R* Q25 = blue on cyan window
23XS(26) R* Q26 = edit window attribute
2XS(27) R* Q27 = text (directions) window attribute
2YEA R* Normal text attribute
][
YYM R* No - change to monochrome attributes
]
]
M(S) R* Execute the signon macro
RE(S) R* Empty the signon macro
0XS(12) R* Init main-menu selection
R*
R* ------------ M A I N P R O G R A M ------------
R*
!MLOOP! R* Main loop
YWI R* Init all windows; reset text attributes
22085YYE R* Make <ESC> perform [VISUAL EXIT]
(.sl<>25) [25YEM] R* Switch EGA/VGA to 25 lines
EE(1) EQY R* Clear edit buffers 1, 2, 7, 8, A, B, C
EE(2) EQY
EE(7) EQY
EE(8) EQY
EE(A) EQY
EE(B) EQY
RE(P) R* Empty registers P and T
RE(T)
EE(@) R* Switch to main edit buffer
EZY R* Clear main edit buffer; also resets indentation
EP 4 0 R* Disable LC to UC conversion
EP 7 0 R* Disable word wrap
1YML R* Reset left margin
0YMS R* Reset horizontal scroll
PP 4 10 R* Left printer margin
ES 3 0 R* Disable auto-indent
ES 6 0 R* Disable regular expressions
ES 8 1 R* Suppress search errors
ES 9 1 R* Use explicit text delimiters
ES 11 0 R* Disable justification
1RPROT(H,Z) R* Write protect registers H - Z from visual mode
+RA(Z) R* Auto-execute register Z
-XS(11) R* Flag that macro running
RI(9)/ VEDIT FAMILY DEMONSTRATION -- MAIN MENU /
RI(8)\Introduction
List Main Features
List Supplied and Optional "Macros"
Demonstrate Basic Editing Features (Tutorial)
Demonstrate Program Development Features
Demonstrate Word Processing Features
Demonstrate Keystroke Macros
Demonstrate Printing
Demonstrate Windows and EGA/VGA support (VEDIT)
Demonstrate Multiple File Editing (VEDIT)
Demonstrate Multiple File Processing (VEDIT)
Demonstrate Basic Command Mode Features (VEDIT PLUS)
Demonstrate DOS Commands (VEDIT PLUS)
Explain Configuration Options
Exit Demonstration
\
q22XS(8) R* Set menu-bar attribute
M(M) R* Display menu - get user's option in Q12
EE(8) EQY R* Clear edit buffer 8
EE(@) R* Ensure main edit buffer
(q12 = 1) [ JP/L-INTRO/ ]
(q12 = 2) [ JP/L-MAIN/ ]
(q12 = 3) [ JP/L-MAC/ ]
(q12 = 4) [ JP/D-VIS/ ]
(q12 = 5) [ JP/D-PROG/ ]
(q12 = 6) [ JP/D-WORD/ ]
(q12 = 7) [ JP/D-KEY/ ]
(q12 = 8) [ JP/D-PRN/ ]
(q12 = 9) [ JP/D-WIN/ ]
(q12 = 10) [ JP/D-MULT/ ]
(q12 = 11) [ JP/D-GROUP/ ]
(q12 = 12) [ JP/D-COMM/ ]
(q12 = 13) [ JP/D-DOS/ ]
(q12 = 14) [ JP/E-CONF/ ]
(q12 = 15) [ JP/L-EXIT/ ]
R*
R* L-INTRO - List introduction
R*
!L-INTRO!
RI(9)/ VEDIT Family - Introduction /
RI(8)/DEMO1.TXT/ R* File name of text
M(L) R* Display the text
JP/MLOOP/
R*
R* L-MAIN - List Main features
R*
!L-MAIN!
RI(9)/VEDIT Family - Main Features/
RI(8)/DEMO2.TXT/
M(L)
JP/MLOOP/
R*
R* L-MAC - List Supplied Macros
R*
!L-MAC!
RI(9)/VEDIT and VEDIT PLUS - Supplied and Optional Macros/
RI(8)/DEMO4.TXT/
M(L)
JP/MLOOP/
R*
R* E-CONF - Explain Configuration Options
R*
!E-CONF!
RI(9)/VEDIT Family - Configuration Options/
RI(8)/DEMO16.TXT/
M(L)
JP/MLOOP/
R*
R* D-VIS - Demonstrate basic Visual Mode features
R*
!D-VIS!
RL(T) DEMO4.VDM
M(T)
JP/MLOOP/
R*
R* D-PROG - Demonstrate Programming features
R*
!D-PROG!
RL(T) DEMO12.VDM
M(T)
JP/MLOOP/
R*
R* D-WORD - Demonstrate Word Processing features
R*
!D-WORD!
RL(T) DEMO14.VDM
M(T)
JP/MLOOP/
R*
R* D-PRN - Demonstrate Printing
R*
!D-PRN!
RL(T) DEMO10.VDM
M(T)
JP/MLOOP/
R*
R* D-KEY - Demonstrate Keystroke Macros
R*
!D-KEY!
RL(T) DEMO7.VDM
M(T)
JP/MLOOP/
R*
R* D-WIN - Demonstrate Windows
R*
!D-WIN!
RL(T) DEMO5.VDM
M(T)
JP/MLOOP/
R*
R* D-MULT - Demonstrate Multiple File Editing
R*
!D-MULT!
RL(T) DEMO6.VDM
M(T)
JP/MLOOP/
R*
R* D-GROUP - Demonstrate Multiple File Processing
R*
!D-GROUP!
RL(T) DEMO9.VDM
M(T)
JP/MLOOP/
R*
R* D-COMM - Demonstrate Command Mode
R*
!D-COMM!
RI9/VEDIT PLUS - Command Mode Demo/
M(H)
YT/
You can perform all routine editing entirely in the easy to use Visual Mode.
However, the Command Mode is even more powerful; it is a complete programming
language. You can use the commands singly or combine them into programs
called "macros". Remember that this entire demo is written as a "macro".
You may find the Command Mode a little cryptic at first. However, this
programming language has several advantages over more verbose ones. First,
you can create a program or "macro" at any time and use it immediately. There
is no time wasted with "compiling", yet it executes as fast as a compiled one.
The language is interactive; you can easily change macros and debug complex
ones. You can try out the commands one by one. The short commands let you do
a lot with just a few keystrokes.
You don't have to be a programmer to use "macros". We regularly receive
letters from people who say that VEDIT PLUS is the first programming language
they can understand and use.
/
M(K)
5YEV 0YEH R* Position cursor
YES R* Clear rest of screen
YT/
You have to be a little careful when running this part of the demo. Since
you will really be in the Command Mode, this demo macro is no longer running
and it cannot catch your errors. (Of course there is nothing you can hurt,
but it is possible to stop this demo.)
REMEMBER: You can enter commands in upper or lower case. You must press
<Enter> at the end of each command line in Command Mode.
REMEMBER: Give the command "MN" to continue with the next step of the demo.
REMEMBER: If things don't seem to be working right, first press <CTRL-C>.
Then give the command "MZ" to return to the Main Menu.
/
M(K)
YWR(1) 41 R* Setup 2 windows
YWB($) 9
EE(1)
B#K
ER demo8.txt 0A R* Load instruction text
-V R* Display text
EE(@)
B#K R* Empty edit buffer
ER demo.txt 0A R* Load demo text
-V R* Display text
YWS$ R* Switch to command mode window
YEN
RA(0) R* Disable auto-execution
JO R* Goto command mode
R*
R* D-DOS - Demonstrate DOS Commands
R*
!D-DOS!
RI(9)/VEDIT PLUS - Demonstrate DOS Commands/
M(H)
YT/
You can run DOS commands and other programs from within any VEDIT Family
editor